| blob | bd5a04b9665bfc7d48f68fe7e8721dba3a46f99f |
1 VERSION 5.00\r
2 Begin VB.Form Principal \r
3 AutoRedraw = -1 'True\r
4 ClientHeight = 7875\r
5 ClientLeft = 60\r
6 ClientTop = 375\r
7 ClientWidth = 7650\r
8 LinkTopic = "Form1"\r
9 ScaleHeight = 7875\r
10 ScaleWidth = 7650\r
11 StartUpPosition = 3 'Windows Default\r
12 Begin VB.TextBox txtSalido \r
13 Height = 2985\r
14 Left = 135\r
15 Locked = -1 'True\r
16 MultiLine = -1 'True\r
17 ScrollBars = 2 'Vertical\r
18 TabIndex = 3\r
19 Top = 4815\r
20 Width = 7320\r
21 End\r
22 Begin VB.TextBox txtResultado \r
23 Height = 3975\r
24 Left = 120\r
25 Locked = -1 'True\r
26 MultiLine = -1 'True\r
27 ScrollBars = 2 'Vertical\r
28 TabIndex = 2\r
29 Top = 750\r
30 Width = 7335\r
31 End\r
32 Begin VB.TextBox txtAnalizar \r
33 Height = 450\r
34 Left = 120\r
35 TabIndex = 1\r
36 Text = "La dirección va acá"\r
37 Top = 225\r
38 Width = 5295\r
39 End\r
40 Begin VB.CommandButton cmdAnalizar \r
41 Caption = "Analizar"\r
42 Default = -1 'True\r
43 Height = 495\r
44 Left = 5490\r
45 TabIndex = 0\r
46 Top = 195\r
47 Width = 1980\r
48 End\r
49 End\r
50 Attribute VB_Name = "Principal"\r
51 Attribute VB_GlobalNameSpace = False\r
52 Attribute VB_Creatable = False\r
53 Attribute VB_PredeclaredId = True\r
54 Attribute VB_Exposed = False\r
55 Option Explicit\r
56 \r
57 Private Sub cmdAnalizar_Click()\r
58 '<EhHeader>\r
59 On Error GoTo cmdAnalizar_Click_Err\r
60 '</EhHeader>\r
61 Dim i As Integer\r
62 Dim a As Integer\r
63 Dim e As Integer\r
64 Dim iFra As Byte\r
65 Dim iMaxForm As Integer\r
66 Dim iMaxFra As Integer\r
67 Dim iMaxCon As Integer\r
68 Dim Buffer As String\r
69 Dim ie As Object\r
70 On Error Resume Next\r
71 100 Set ie = CreateObject("InternetExplorer.Application")\r
72 101 Print2 "Iniciando analisis...", True\r
73 102 Print2 "0 indica la presencia del primer elemento, -1 que no existen"\r
74 \r
75 103 With ie\r
76 104 .navigate txtAnalizar.Text\r
77 \r
78 105 Do While .busy\r
79 106 DoEvents\r
80 Loop\r
81 \r
82 107 Do While .ReadyState <> 4\r
83 108 DoEvents\r
84 Loop\r
85 \r
86 'Numero de frames\r
87 110 iMaxFra = .Document.frames.Length - 1\r
88 111 Print2 "Página: " & txtAnalizar.Text\r
89 112 Print2 "Número de cuadros: " & iMaxFra\r
90 \r
91 113 If iMaxFra <> -1 Then\r
92 114 Print2 "!!!=> Existen cuadros, se inicia el analisis por cuadro"\r
93 \r
94 115 For i = 0 To iMaxFra\r
95 116 Print2 "-Nombre de cuadro " & i & ": " & .Document.frames(i).Name\r
96 117 iMaxForm = .Document.frames(i).Document.Forms.Length - 1\r
97 118 Print2 "--No. formularios en cuadro " & i & ": " & iMaxForm\r
98 \r
99 119 For a = 0 To iMaxForm\r
100 120 iMaxCon = .Document.frames(i).Document.Forms(a).Length - 1\r
101 121 Print2 "---No. controles en formulario" & a & " de cuadro " & i & ":" & iMaxCon\r
102 \r
103 122 For e = 0 To iMaxCon\r
104 123 Print2 "----Control " & i & "," & a & "," & e & " : " & .Document.frames(i).Document.Forms(a)(e).Value & " :: " & .Document.frames(i).Document.Forms(a)(e).Name\r
105 Next\r
106 Next\r
107 Next\r
108 \r
109 Else\r
110 124 Print2 "!!!=> No hay cuadros, analisis simple iniciado"\r
111 125 iMaxForm = .Document.Forms.Length - 1\r
112 126 Print2 "-Numero de formularios: " & iMaxForm\r
113 \r
114 127 If iMaxForm <> -1 Then\r
115 \r
116 128 For a = 0 To iMaxForm\r
117 129 iMaxCon = .Document.Forms(a).Length - 1\r
118 130 Print2 "--No. controles en formulario: " & a\r
119 \r
120 131 For e = 0 To iMaxCon\r
121 132 Print2 "---Control " & a & "," & e & " : " & .Document.Forms(a)(e).Value & " :: " & .Document.Forms(a)(e).Name\r
122 Next\r
123 Next\r
124 \r
125 Else\r
126 133 Print2 "!!-> La pagina no tenía formularios"\r
127 End If\r
128 End If\r
129 \r
130 134 Print2 "Fin de analisis", True\r
131 135 txtSalido.Text = .Document.documentelement.outerhtml\r
132 136 ie.Quit\r
133 137 Set ie = Nothing\r
134 End With\r
135 \r
136 '<EhFooter>\r
137 Exit Sub\r
138 cmdAnalizar_Click_Err:\r
139 controlar_error Erl, Err.Description, "Analizador_Web.Principal.cmdAnalizar_Click.Ref 4/12/2008 : 22:37:33"\r
140 Resume Next\r
141 '</EhFooter>\r
142 End Sub\r
143 \r
144 Private Sub Print2(Texto As String, _\r
145 Optional Vaciar As Boolean)\r
146 '<EhHeader>\r
147 On Error GoTo Print2_Err\r
148 '</EhHeader>\r
149 Static Buffer As String\r
150 \r
151 100 Buffer = Buffer & Texto & vbNewLine\r
152 \r
153 102 If Vaciar Then\r
154 txtResultado.Text = Buffer\r
155 Buffer = vbNullString\r
156 End If\r
157 \r
158 '<EhFooter>\r
159 Exit Sub\r
160 \r
161 Print2_Err:\r
162 \r
163 controlar_error Erl, Err.Description, "Analizador_Web.Principal.Print2"\r
164 Resume Next\r
165 '</EhFooter>\r
166 End Sub\r
167 \r
168 Public Sub controlar_error(algo, algo2, algo3)\r
169 '\r
170 End Sub\r
171 \r
172 Private Sub Form_Load()\r
173 Caption = "Analizador Web V." & App.Major & "." & App.Minor & " para SVCommunty.org & TodoSV.com"\r
174 End Sub\r